home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / getat2.dir / 00099_Script_99 < prev    next >
Text File  |  1996-11-09  |  482b  |  22 lines
  1. on Installa_Book
  2.   
  3.   global BOOK
  4.   --Questa procedura installa la lista Book 
  5.   
  6.   set Loop=0
  7.   set Loop2=0
  8.   
  9.   set  BOOK=[]
  10.   repeat with Loop= 1 to  30 --max 30 pagine
  11.     
  12.     add BOOK,[0,0,0,0,0,0,0,0,0,0]
  13.     set PAGE=getat(BOOK,Loop) 
  14.     repeat with Loop2= 1 to 10 -- with max ten obj's
  15.          setat Page,Loop2,[#ACTIVE:0,#X:0,#Y:0,#X_SIZE:0,#Y_SIZE:0,#TEXT:EMPTY,#CAST:EMPTY,#TYPE:1]
  16.        end repeat --Loop2 end
  17.   end repeat --Loop end
  18.   
  19.   
  20. end
  21.  
  22.